home *** CD-ROM | disk | FTP | other *** search
/ Workbench Design / WB Collection.iso / workbench werkzeuge / backdroppic. tools / moods / install moods < prev    next >
Text File  |  1996-04-07  |  4KB  |  91 lines
  1. ; The installation script for Moods.
  2. ; Please use this script rather than installing the program manually.
  3. ; $VER: Moods installation script v1.1295 by Manos Konstantiniadis.
  4. ; Fixes by Rune Jacobsen
  5.  
  6. (transcript "Installing Moods V1.0...")
  7. (set @app-name "Moods v1.0")
  8. (set @default-dest "Sys:")
  9. (set #IntroMsg      (cat "\n\n-*- Moods v1.0 Installation Script -*-\n\n"
  10.                          "This script installs Moods v1.0\n"
  11.                          "Moods v1.0 (09/11/95)\n"
  12.                          "© 1995 Rune Jacobsen\n\n"
  13.                          "Installation script by Manos Konstantiniadis\nSome bug fixes to this script by Rune Jacobsen :-)"))
  14. (set #MDDest        (cat "Please select where to put the 'Moods' directory.\n This will be the place where the data files are stored."))
  15. (set #Working            "Installing Moods v1.0...")
  16. (set #DoneText      (cat "Please read the Moods_xxx.guide (xxx = language) file to avoid problems using this program"))
  17. (complete 0)
  18. (welcome)
  19. (message #IntroMsg)
  20. (complete 1)
  21.  
  22. (message "Please note that continuing this installer script means you accept the terms outlined in the 'Legal' section of the Moods_xxx.guide file. If you have not read it yet, do so now.")
  23. (complete 2)
  24. (message "If you are in any way or have ever been affiliated with Microsoft, you MUST read and take the actions required in the Anti-Microsoft Public License. You can aquire this at http://www.oslohd.no/~rune/ms.html")
  25.  
  26. (complete 4)
  27. (set t (askdir (prompt #MDDest) (default @default-dest) (help (cat "This is where all the data files will be stored"))))
  28. (set target (tackon t "Moods"))
  29. (complete 50)
  30. (if (not (exists target)) (makedir target))
  31. (working #Working)
  32. (complete 75)
  33. (textfile
  34.    (prompt "Creating the files ENVARC:MoodsPath and ENV:MoodsPath to reflect the path of the program.")
  35.    (help "These files (enviroment variables) are needed by Moods. If you want to use it properly, then you have to do this. For more information, please read the manual")
  36.    (dest "ENVARC:MoodsPath")
  37.    (append target)
  38.    (confirm)
  39. )
  40. (textfile
  41.    (dest "ENV:MoodsPath")
  42.    (append target)
  43. )
  44. (complete 88)
  45.    (message "Copying Moods to your prefs-directory.")
  46. (copyfiles (source "Moods") (dest "sys:prefs"))
  47. (copyfiles (source "Moods.info") (dest "sys:prefs"))
  48. (complete 92)
  49.    (message (cat "Copying Moods SETUP to the Moods/ directory"))
  50. (copyfiles (source "Setup") (dest target))
  51. (copyfiles (source "Setup.info") (dest target))
  52.  
  53. (complete 95)
  54. (set Catalogs
  55.    (askoptions
  56.       (prompt "Please select which catalogs to install")
  57.       (help "Just indicate which languages you want installed with the program")
  58.       (choices "English" "Norsk" "Nederlands" "Svenska" "Dansk" "Italiano" "Deutsch" "Greek")
  59.       (default 1)
  60.    )
  61. )
  62.  
  63. (if (BITAND 1 Catalogs ) (copyfiles   (source "Catalogs/English/Moods.catalog")    (dest "Locale:Catalogs/English")))
  64. (if (BITAND 2 Catalogs ) (copyfiles   (source "Catalogs/Norsk/Moods.catalog")      (dest "Locale:Catalogs/Norsk")))
  65. (if (BITAND 4 Catalogs ) (copyfiles   (source "Catalogs/Nederlands/Moods.catalog") (dest "Locale:Catalogs/Nederlands")))
  66. (if (BITAND 8 Catalogs ) (copyfiles   (source "Catalogs/Svenska/Moods.catalog")    (dest "Locale:Catalogs/Svenska")))
  67. (if (BITAND 16 Catalogs ) (copyfiles  (source "Catalogs/Dansk/Moods.catalog")      (dest "Locale:Catalogs/Dansk")))
  68. (if (BITAND 32 Catalogs ) (copyfiles  (source "Catalogs/Italiano/Moods.catalog")   (dest "Locale:Catalogs/Italiano")))
  69. (if (BITAND 64 Catalogs ) (copyfiles  (source "Catalogs/Deutsch/Moods.catalog")    (dest "Locale:Catalogs/Deutsch")))
  70. (if (BITAND 128 Catalogs ) (copyfiles (source "Catalogs/Greek/Moods.catalog")      (dest "Locale:Catalogs/Greek")))
  71.  
  72. (complete 98)
  73. (set Docs
  74.    (askoptions
  75.       (prompt "Please select which versions of Moods.guide to install")
  76.       (help "Just indicate which versions of the documentation you want installed with the program")
  77.       (choices "English" "Norsk" "Nederlands" "Deutsch")
  78.       (default 1)
  79.    )
  80. )
  81.  
  82. (if (BITAND Docs 1) (copyfiles (source "Docs/Moods_English.guide")    (dest (tackon target "Docs"))))
  83. (if (BITAND Docs 2) (copyfiles (source "Docs/Moods_Norsk.guide")      (dest (tackon target "Docs"))))
  84. (if (BITAND Docs 4) (copyfiles (source "Docs/Moods_Nederlands.guide") (dest (tackon target "Docs"))))
  85. (if (BITAND Docs 8) (copyfiles (source "Docs/Moods_Deutsch.guide")    (dest (tackon target "Docs"))))
  86.  
  87. (complete 100)
  88. (set @default-dest target)
  89. (exit #DoneText)
  90.  
  91.